home *** CD-ROM | disk | FTP | other *** search
/ Dynamic HTML Construction Kit / Dynamic HTML Construction Kit.iso / source_code / dhtmlunl / dhtml.exe / CD Content / Chap20 / lst20-3.asp < prev   
Encoding:
Text File  |  1997-09-03  |  4.0 KB  |  148 lines
  1. <html>
  2.  
  3. <head>
  4. <title>Trading Card Database Editor</title>
  5. </head>
  6.  
  7. <body
  8. background="../../../../../PROGRA~1/COMMON~1/SYSTEM/MSADC/SAMPLES/AddressBook/Arcadia.gif"
  9. bgcolor="ffffff" text="000000" link="000080" language="VBS" onload="init">
  10.  
  11. <h1 align="center">Trading Card Database Editor</h1>
  12.  
  13. <p align="center"><br>
  14. <br>
  15. </p>
  16. <div align="center"><center>
  17.  
  18. <table border="0" cellpadding="5">
  19.   <tr>
  20.     <td align="right">CardID:</td>
  21.     <td><input type="text" name="CardID" size="20" datasrc="#ADC" datafld="CardID"></td>
  22.   </tr>
  23.   <tr>
  24.     <td align="right">Year:</td>
  25.     <td><input type="text" name="YearFld" size="20" datasrc="#ADC" datafld="year"></td>
  26.   </tr>
  27.   <tr>
  28.     <td align="right">Issuer:</td>
  29.     <td><input type="text" name="Issuer" size="20" datasrc="#ADC" datafld="Issuer"></td>
  30.   </tr>
  31.   <tr>
  32.     <td align="right">Set Name:</td>
  33.     <td><input type="text" name="SetName" size="20" datasrc="#ADC" datafld="SetName"></td>
  34.   </tr>
  35.   <tr>
  36.     <td align="right">Card Number:</td>
  37.     <td><input type="text" name="CardNumber" size="20" datasrc="#ADC" datafld="CardNumber"></td>
  38.   </tr>
  39.   <tr>
  40.     <td align="right">Description:</td>
  41.     <td><input type="text" name="Description" size="50" datasrc="#ADC" datafld="Description"></td>
  42.   </tr>
  43.   <tr>
  44.     <td align="right">Grade:</td>
  45.     <td><input type="text" name="Grade" size="20" datasrc="#ADC" datafld="Grade"></td>
  46.   </tr>
  47.   <tr>
  48.     <td align="right">Value:</td>
  49.     <td><input type="text" name="ValueFld" size="20" datasrc="#ADC" datafld="CardValue"></td>
  50.   </tr>
  51. </table>
  52. </center></div>
  53.  
  54. <p align="center"><input type="BUTTON" name="First" value="First" onclick="MoveFirst"> <input
  55. type="BUTTON" name="Prev" value="Prev" onclick="MovePrev"> <input type="BUTTON"
  56. name="Next" value="Next" onclick="MoveNext"> <input type="BUTTON" name="Last" value="Last"
  57. onclick="MoveLast"> <br>
  58. <br>
  59. <input type="BUTTON" name="Run" value="Requery" onclick="Requery"> <input type="BUTTON"
  60. name="Update" value="Save Changes" onclick="Update"> <input type="BUTTON" name="Cancel"
  61. value="Cancel Changes" onclick="Cancel"> </p>
  62.  
  63. <p>SQL UPDATE:<br>
  64. <input type="text" name="SQL" size="100"></p>
  65.  
  66. <p>
  67. <object classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" id="ADC" height="1" width="1">
  68. </object>
  69. </p>
  70. <script language="VBScript" onload="Init"><!--
  71.  
  72.  
  73. SUB MoveFirst
  74.     ADC.Recordset.MoveFirst
  75. END SUB
  76.  
  77. SUB MoveNext
  78.     On Error Resume Next
  79.     ADC.Recordset.MoveNext
  80.     IF ERR.Number <> 0 THEN
  81.         ADC.Recordset.MoveLast  'If already at end of recordset stay at end.
  82.     END IF
  83. END SUB
  84.  
  85. SUB MovePrev
  86.     On Error Resume Next
  87.     ADC.Recordset.MovePrevious
  88.     IF ERR.Number <> 0 THEN
  89.         ADC.Recordset.MoveFirst  'If already at start of recordset stay at top.
  90.     END IF
  91. END SUB
  92.  
  93. SUB MoveLast
  94.     ADC.Recordset.MoveLast
  95. END SUB
  96.  
  97. 'Submits edits made and pull a clean copy of the new data.
  98. SUB Update
  99.    ssql = "Update Cards Set " 
  100.    ssql = ssql + "Year = " + yearfld.value + ", "
  101.    ssql = ssql + "Issuer = '" + issuer.value + "', "
  102.    ssql = ssql + "SetName = '" + setname.value + "', "
  103.    ssql = ssql + "CardNumber = " + cardnumber.value + ", "
  104.    ssql = ssql + "Description = '" + description.value + "', "
  105.    ssql = ssql + "Grade = '" + grade.value + "', "
  106.    ssql = ssql + "CardValue = " + valuefld.value + " "
  107.    ssql = ssql + "WHERE CardID = " + CardID.Value
  108.  
  109.    SQL.value = ssql
  110.  
  111.    ADC.SQL = ssql
  112.    ADC.Refresh
  113.  
  114.    ADC.SQL = "Select * from Cards"
  115.    ADC.Refresh
  116.  
  117. 'to use the SubmitChanges method, comment out the above and
  118. ' uncomment the following:
  119. '  ADC.SubmitChanges
  120. '  ADC.Refresh
  121.  
  122. END SUB
  123.  
  124. 'Cancel edits and restores original values.
  125. SUB Cancel
  126.       ADC.CancelUpdate
  127. END SUB
  128.  
  129. SUB Requery
  130.     ADC.Server = "http://<%=Request.ServerVariables("SERVER_NAME")%>"
  131.      ADC.Connect = "DSN=Cards"
  132.       ADC.SQL = "Select * from Cards"
  133.     ADC.Refresh
  134.  
  135. END SUB
  136.  
  137. SUB Init
  138.     ADC.Server = "http://<%=Request.ServerVariables("SERVER_NAME")%>"
  139.        ADC.Connect = "DSN=Cards"
  140.        ADC.SQL = "Select * from Cards"
  141.    
  142. END SUB
  143.  
  144. --></script>
  145.  
  146. </body>
  147. </html>
  148.